VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BFormaPago"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarnCodigo As Integer 'local copy
Private mvarsDescripcion As String 'local copy
Private mvarbEstado As bEstado 'local copy
Private mvarsAbreviatura As String 'local copy
Private mvarnReqAutorizacion As Boolean 'local copy
Private mvarbRestTotal As Boolean 'local copy
Private mvarbEsDolar As Boolean
Friend Property Let bRestTotal(ByVal vData As Boolean)
    mvarbRestTotal = vData
End Property


Friend Property Get bRestTotal() As Boolean
    bRestTotal = mvarbRestTotal
End Property



Friend Property Let nReqAutorizacion(ByVal vData As Boolean)
    mvarnReqAutorizacion = vData
End Property


Friend Property Get nReqAutorizacion() As Boolean
    nReqAutorizacion = mvarnReqAutorizacion
End Property



Friend Property Let sAbreviatura(ByVal vData As String)
    mvarsAbreviatura = vData
End Property


Friend Property Get sAbreviatura() As String
    sAbreviatura = mvarsAbreviatura
End Property



Friend Property Set bEstado(ByVal vData As bEstado)
    Set mvarbEstado = vData
End Property


Friend Property Get bEstado() As bEstado
    Set bEstado = mvarbEstado
End Property

Friend Property Let sDescripcion(ByVal vData As String)
    mvarsDescripcion = vData
End Property


Friend Property Get sDescripcion() As String
    sDescripcion = mvarsDescripcion
End Property

Friend Property Let nCodigo(ByVal vData As Integer)
    mvarnCodigo = vData
End Property

Friend Property Get nCodigo() As Integer
    nCodigo = mvarnCodigo
End Property

Public Property Get bEsDolar() As Boolean
    bEsDolar = mvarbEsDolar
End Property

Public Property Let bEsDolar(ByVal bEsDolar As Boolean)
    mvarbEsDolar = bEsDolar
End Property

Private Sub Class_Initialize()
Set mvarbEstado = New bEstado
End Sub

